home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / FPCIMM.SRC < prev    next >
Text File  |  1990-11-06  |  8KB  |  342 lines
  1. ;\|
  2. ;FPCIMM.SRC     Translated from FPCIMM.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;FPCTARG  12:09:55 PM  17/ 6/90   |
  4.     define(RESULT|A|1||)
  5.     define(CONTYN|A|1||)
  6.     define(3_POS|N|1||)
  7.     define(Q_END|S|8||)
  8.     define(IN_BY|S|8||)
  9.     define(FLAG|N|1||)
  10.     define(MEM_TD|S|8||)
  11.     define(MAX_CTR|N|3||)
  12.     define(PER_CTR|N|3||)
  13.     define(M_POS|N|1||)
  14.     define(DOB1|S|8||)
  15.     define(DOB2|S|8||)
  16.     define(GP_CODE|A|4||)
  17.     define(MEM_DOC|N|1||)
  18.     define(NO_CTR|N|4||)
  19.     define(YES_CTR|N|4||)
  20.     define(TOT_CTR|N|4||)
  21.     define(D_CTR|N|3||)
  22.     define(P_CTR|N|3||)
  23.     define(TO_DATE|S|8||)
  24.     define(M_CTR|N|3||)
  25.     define(PER|N|1||)
  26.     define(GMS1|A|1||)
  27.     define(MON1|N|2||)
  28.     define(MON2|N|2||)
  29.     define(GMS2|A|1||)
  30.     define(GMS3|A|1||)
  31.     define(DOC_NAME|A|23||)
  32.     define(NO_CTR|N|3||)
  33.     define(MEM_PER|S|8||)
  34.     define(TD|S|8||)
  35.     date(TD|G)
  36.     open(GPSETUP||0|)
  37.     open(PATIENT||0|)
  38.     open(RECALLS||0|)
  39.     open(IMDATE||0|)
  40.     open(MEMORY||0|)
  41.     trap(q|g|exit_4)
  42. START:
  43.     mount(NEWS|S)
  44.     enter(IN_BY||||N|N|N|||N)
  45.     enter(Q_END||||N|N|N|||N)
  46.     enter(TO_DATE||||N|N|N|||N)
  47.     MON1 =xmt(TO_DATE)
  48.     find(B|MEM_NAME||)
  49.     DOB1 = (TO_DATE-1095)
  50.     DOB2 = (TO_DATE-730)
  51.     enter(DOB1||||N|N|N|||N)
  52.     enter(DOB2||||N|N|N|||N)
  53.     enter(CONTYN|"YN"|||Y|Y|N|||N)
  54.     if CONTYN <> ("Y") goto START
  55.     MEM_DOB1 = (DOB1)
  56.     MEM_DOB2 = (DOB2)
  57.     MEM_TO_DATE = (TO_DATE)
  58.     MEM_Q_END = (Q_END)
  59.     MEM_IN_BY = (IN_BY)
  60.     save(MEMORY|N|Y)
  61.     MEM_DOC = (1)
  62.     trap(I|G|EXIT2)
  63.     gosub MOUNT
  64. STARTER:
  65.     find(B|HEADING||)
  66.     DOC_NAME = (RPDOCTOR[MEM_DOC])
  67.     if MEM_DOC = (1) then GP_CODE = ("V4")
  68.     if MEM_DOC = (2) then GP_CODE = ("G44")
  69.     if MEM_DOC = (3) then GP_CODE = ("P")
  70.     if MEM_DOC = (4) then GP_CODE = ("N")
  71.     trap(P|S|SHEADING)
  72.     ptof
  73.     DATE.OF.BIRTH = (DOB1)
  74.     find(G|DATE.OF.BIRTH|EXIT|)
  75. TEST:
  76.     pmsg(RECORD.NUMBER|1|1|N|N|S|)
  77.     if DOCTOR <> (MEM_DOC) goto NEXT
  78.     if DATE.OF.BIRTH > (DOB2) goto EXIT
  79.     gosub FINDREC
  80. NEXT:
  81.     find(N|PATIENT|EXIT|)
  82.     goto TEST
  83. FINDREC:
  84.     COD.REF = (RECORD.NUMBER)
  85.     find(M|COD.REF|NOCOD|)
  86.     IMDATE.COD = (COD.REF)
  87.     find(M|IMDATE.COD|NO_IMDATEX|)
  88. NO_IMDATE:
  89.     MEM_PER = (IMDATE3)
  90.     PER =loc("P"|COD[3]|1||4)
  91.     if PER > (0) then MEM_PER = (0)
  92.     GMS1 = ("Y")
  93.     GMS2 = ("Y")
  94.     GMS3 = ("Y")
  95.     if IMDATE3 = (0) then GMS1 = ("")
  96.     if MEM_PER = (0) then GMS2 = ("")
  97.     if IMDATE4 = (0) then GMS3 = ("")
  98.     gosub MONTH
  99.     pfmt(13|||N|N|)
  100.     if IMDATE3 > (0) then D_CTR = (D_CTR+1)
  101.     if IMDATE4 > (0) then M_CTR = (M_CTR+1)
  102.     if MEM_PER > (0) then P_CTR = (P_CTR+1)
  103.     MEM_PER = (0)
  104.     TOT_CTR = (TOT_CTR+1)
  105.     clr(IMDATE|B)
  106.     clr(RECALLS|B)
  107.     ret
  108. NOCOD:
  109.     clr(IMDATE|B)
  110.     clr(RECALLS|B)
  111.     pfmt(14|||N|N|)
  112.     pops
  113.     goto NEXT
  114. SHEADING:
  115.     pfmt(1|||N|N|)
  116.     pfmt(2|||N|N|)
  117.     pfmt(3|||N|N|)
  118.     pfmt(4|||N|N|)
  119.     pfmt(5|||N|N|)
  120.     pfmt(6|||N|N|)
  121.     pfmt(7|||N|N|)
  122.     pfmt(8|||N|N|)
  123.     pfmt(9|||N|N|)
  124.     pfmt(10|||N|N|)
  125.     pfmt(11|||N|N|)
  126.     pfmt(12|||N|N|)
  127.     pblnk(1)
  128.     ret
  129. MOUNT:
  130.     pchr(P|4)
  131.     mount(NEW1|R|P)
  132.     pset(132|70|66)
  133.     pchr(P|1)
  134.     ret
  135. EXIT:
  136.     pfmt(10|||N|N|)
  137.     pfmt(19|||N|N|)
  138.     pblnk(1)
  139.     pfmt(16|||N|N|)
  140.     pfmt(17|||N|N|)
  141.     pfmt(18|||N|N|)
  142.     gosub LASTPAGE
  143.     TOT_CTR = (0)
  144.     D_CTR = (0)
  145.     FLAG = (0)
  146.     P_CTR = (0)
  147.     M_CTR = (0)
  148.     MEM_DOC = (MEM_DOC+1)
  149.     if MEM_DOC > (4) goto EXIT2
  150.     goto STARTER
  151. EXIT2:
  152.     trap(P|D)
  153.     ptof
  154.     run("FPCIMB")
  155. NO_IMDATEX:
  156.     clr(IMDATE|B)
  157.     pfmt(15|||N|N|)
  158.     pops
  159.     goto NEXT
  160. MONTH:
  161.     if FLAG = (1) goto MONTH2
  162.     if FLAG = (2) goto MONTH3
  163.     if FLAG = (3) ret
  164.     if DATE.OF.BIRTH > (DOB1+91) do
  165.         {
  166.         pfmt(10|||N|N|)
  167.         FLAG = (1)
  168.         }
  169. MONTH2:
  170.     if DATE.OF.BIRTH > (DOB1+182) do
  171.         {
  172.         pfmt(10|||N|N|)
  173.         FLAG = (2)
  174.         }
  175. MONTH3:
  176.     if DATE.OF.BIRTH > (DOB1+273) do
  177.         {
  178.         if FLAG = (3) ret
  179.         pfmt(10|||N|N|)
  180.         FLAG = (3)
  181.         }
  182.     ret
  183. LASTPAGE:
  184.     trap(P|D)
  185.     ptof
  186.     pfmt(1|||N|N|)
  187.     pblnk(1)
  188.     pfmt(2|||N|N|)
  189.     pfmt(3|||N|N|)
  190.     pfmt(4|||N|N|)
  191.     pfmt(20|||N|N|)
  192.     pblnk(1)
  193.     pfmt(10|||N|N|)
  194.     pblnk(1)
  195.     pfmt(21|||N|N|)
  196.     pfmt(22|||N|N|)
  197.     pblnk(1)
  198.     pfmt(23|||N|N|)
  199.     pfmt(24|||N|N|)
  200.     pfmt(25|||N|N|)
  201.     pfmt(26|||N|N|)
  202.     pfmt(27|||N|N|)
  203.     pfmt(28|||N|N|)
  204.     pfmt(29|||N|N|)
  205.     pblnk(3)
  206.     pfmt(30|||N|N|)
  207.     pblnk(1)
  208.     pfmt(31|||N|N|)
  209.     pblnk(6)
  210.     pfmt(10|||N|N|)
  211.     pfmt(16|||N|N|)
  212.     pfmt(17|||N|N|)
  213.     pfmt(18|||N|N|)
  214.     ptof
  215.     ret
  216. exit_4:
  217.     run("recmenu")
  218. \STNEWS    
  219.  
  220.  
  221.  
  222.  
  223.  
  224.  
  225.  
  226.                  FPC TARGET PRINT OUTS 12" PAPER
  227.              ╔═══════════════════════════════════════╗
  228.              ║   Forms to be in by :&                ║
  229.              ║   Payment due quarter end :&          ║
  230.              ║             FPC TARGET DATE:&         ║
  231.              ║ FROM DATE OF BIRTH - LOWEST:&         ║
  232.              ║  TO DATE OF BIRTH - HIGHEST:&         ║
  233.              ║  Continue Y/N :&                      ║
  234.              ╚═══════════════════════════════════════╝
  235.                             ESC-EXIT
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243. \
  244. IN_BY
  245. Q_END
  246. TO_DATE
  247. DOB1
  248. DOB2
  249. CONTYN
  250. \
  251. \R NEW1    
  252.                                             NORTH YORKSHIRE FAMILY PRACTITIONER COMMITTEE
  253.                                                   CHILDHOOD IMMUNISATION TARGETS
  254.                                                    PATIENT COUNT AS AT &
  255.                                                          Printed : &
  256. Listed below are patients for whom a Target payment may be due at the quarter ending &        according to their immunisation status
  257. as at &       .
  258. Please enter the date of each completing immunisation in the appropriate box.If the completing immunisation of the course of treat-
  259. ment was administered under General Medical Services, please tick the box "As  Gms". Forms should be returned to your responsible
  260. FPC by 01.08.90 in order for payment to be made.
  261. ------------------------------------------------------------------------------------------------------------------------------------
  262. Capitation Age 2
  263. Patient's Name                 D.o.B.          Nhs.Num         DT /Polio   GMS    Pertussis   GMS   Measles/MMR   GMS
  264. &                              &               &               [&       ]  [&]   [&       ]   [&]   [&       ]    [&]
  265. &                            NO RECALL
  266. &                            NO IMDATE
  267. &
  268. &
  269. &
  270. &                                              TOTALS  [&   ]    [&  ]   [&  ]     [&  ]     [&  ]     [&  ]      [&  ]
  271.                  Payment due quarter ending &           : Forms to your responsible FPC by &
  272.                        I certify that the number of patients indicated have been immunised and
  273.                        I claim the appropriate fee for those patients as summarised below:-
  274.                        -------------  COMPLETED COURSES -----------     Measles
  275.                        DT + Polio     As GMS   Pertussis     As GMS       MMR       As GMS
  276. North Yorkshire         [&  ]         [&  ]      [&  ]       [&  ]      [&  ]       [&  ]
  277.  FPC
  278.                       --------------------------------------------------------------------
  279.            TOTAL        [&  ]         [&  ]      [&  ]       [&  ]      [&  ]       [&  ]
  280.                       --------------------------------------------------------------------
  281.       Signature of Doctor..............................................
  282.                      Date..............................................  Code Num:
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300. \
  301. TO_DATE
  302. TD
  303. Q_END
  304. TO_DATE
  305. PATIENT.NAME
  306. DATE.OF.BIRTH
  307. NHS.NUM
  308. IMDATE3
  309. GMS1
  310. MEM_PER
  311. GMS2
  312. IMDATE4
  313. GMS3
  314. PATIENT.NAME
  315. PATIENT.NAME
  316. DOC_NAME
  317. AD1
  318. AD2
  319. AD3
  320. TOT_CTR
  321. D_CTR
  322. D_CTR
  323. P_CTR
  324. P_CTR
  325. M_CTR
  326. M_CTR
  327. Q_END
  328. IN_BY
  329. D_CTR
  330. D_CTR
  331. P_CTR
  332. P_CTR
  333. M_CTR
  334. M_CTR
  335. D_CTR
  336. D_CTR
  337. P_CTR
  338. P_CTR
  339. M_CTR
  340. M_CTR
  341. \
  342.